home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Color Bar 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  768b  |  24 lines
  1. 1 rem =================================
  2. 2 rem   commodares problem #46-1 :
  3. 3 rem          color bar
  4. 4 rem         solution by
  5. 5 rem             tbr
  6. 6 rem == c-64 or c-128 in 40 columns ==
  7. 10 print"[147]use crsr keys to select;<return> changes
  8. 15 klr[178]241 : [139] [184](0)[178][184](1) [167] klr[178]646
  9. 19 [143] set up color bar
  10. 20 [129]i[178]0[164]15:[151]1144[170]i,160:[151]55416[170]i,i:[130]
  11. 29 [143] set up selection bar
  12. 30 [153]"border":[153]"screen":[153]"character"
  13. 39 [143] place arrows on screen
  14. 40 a$[178]"^":b$[178]"_":[141]80:[161]k$:[139]k$[178]""[167]40
  15. 49 [143] move arrows
  16. 50 a$[178]" ":b$[178]" ":[141]80:x[178]x[170](k$[178]"cmd")[171](k$[178]""):y[178]y[170](k$[178]"on")[171](k$[178]"")
  17. 59 [143] adjust movement to limited range
  18. 60 x[178]x[170](x[177]15)[171](x[179]0):y[178]y[170](y[177]2)[171](y[179]0):[139]k$[179][177][199](13)[137]40
  19. 69 [143] change colors
  20. 70 [139]y[179]2[167][151]53280[170]y,x:[137]40
  21. 75 [151] klr,x:[137]10
  22. 79 [143] place/erase arrows
  23. 80 [153]""[163]x)a$:[129]i[178]0[164]y:[153]:[130]:[153][163]10)b$:[142]
  24.